﻿Public Class cAnalistas
    Private varCodigo_analista As String
    Private varCodigo_Tipo_Identificacion As String
    Private VarNumero_identificacion As String
    Private varAnalista As String
    Private varDireccion As String
    Private varTelefono As String
    Private varEmail As String
    Private varEstado As String
    Private datos As New dAnalistas

    Public Property Codigo_Analista As String
        Get
            Return varCodigo_analista
        End Get
        Set(ByVal value As String)
            varCodigo_analista = value
        End Set
    End Property

    Public Property Codigo_Tipo_Identificacion As String
        Get
            Return varCodigo_Tipo_Identificacion
        End Get
        Set(ByVal value As String)
            varCodigo_Tipo_Identificacion = value
        End Set
    End Property

    Public Property Numero_Identificacion As String
        Get
            Return VarNumero_identificacion
        End Get
        Set(ByVal value As String)
            VarNumero_identificacion = value
        End Set
    End Property
    Public Property Analista As String
        Get
            Return varAnalista
        End Get
        Set(ByVal value As String)
            varAnalista = value
        End Set
    End Property
    Public Property Direccion As String
        Get
            Return varDireccion
        End Get
        Set(ByVal value As String)
            varDireccion = value
        End Set
    End Property

    Public Property Telefono As String
        Get
            Return varTelefono
        End Get
        Set(ByVal value As String)
            varTelefono = value
        End Set
    End Property

    Public Property Email As String
        Get
            Return varEmail
        End Get
        Set(ByVal value As String)
            varEmail = value
        End Set
    End Property

    Public Property Estado As String
        Get
            Return varEstado
        End Get
        Set(ByVal value As String)
            varEstado = value
        End Set
    End Property
    Public Function Consultar(ByVal campo As String) As DataSet
        'Dim datos As New dAnalistas
        Dim resultado As DataSet
        resultado = datos.ConsultarMysql(campo)
        Return resultado
    End Function
    Public Sub Guardar()
        'Dim Datos As New dAnalistas
        Datos.GuardarMysql(varCodigo_analista, varCodigo_Tipo_Identificacion, VarNumero_identificacion, varAnalista, varDireccion, varTelefono, varEmail)
    End Sub
    Public Sub Cargar(ByVal campo As String)
        'Dim datos As New dAnalistas
        Dim resultado As ArrayList
        resultado = datos.CargarMysql(campo)
        'almacenar campos resultado de consulta por registro
        varCodigo_Tipo_Identificacion = resultado(0)
        VarNumero_identificacion = resultado(1)
        varAnalista = resultado(2)
        varDireccion = resultado(3)
        varTelefono = resultado(4)
        varEmail = resultado(5)
    End Sub
    Public Function cbo_Analistas() As DataSet
        Dim Resultado As DataSet
        Resultado = datos.llenar_cboMysql()
        Return Resultado
    End Function
End Class
